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RBSTRflCT 



ARITHMETIC AND INPUT-OUTPUT SUBROUTINES ARE PROVIDED FOR 
MULTIPLE PRECISION INTEGERS. 



USAGE 



THESE SUBROUTINES MAV BE CALLED FROM EITHER FORTRAN OR 
SABR. THE FILE MINT. RL MUST BE LOADED WITH THE 
PROGRAM OR PLACED IN LIBS. 



STORAGE OF INTEGERS 

INTEGERS ARE STORED IN SUCCESSIVE MEMORV LOCATIONS. 

AN N-WORD INTEGER IS CONSIDERED AS A 12*N BIT TWO'S 
COMPLEMENT NUMBER. THE LEAST SIGINIFICANT WORD IS STORED FIRST. 

EXAMPLE : 

USING 3-WORD INTEGERS. THE DECIMAL NUMBER 16. 786. 121 
< OCTAL 000100020002 > IS STORED AS 
0003 
0002 
0001 

THE DECIMAL NUMBER -2 IS STORED AS 

7776 

7777 
7777 




THE PRCKflGE USES ft 

5S~ 

TkJ xor- «.!Z ^ Ib SET ftT nH.X I MUM OF unorsci 

IN THE PRESENT PRrk'a^c t fiSSEMBLV TIME ner 



storage RLLOCRTION 

******>*< 



FOR 



INTEGERS 



IN FORTRRN^ SPRCF Mftu or- o.. 

IN SRBR. SPRCE MRV BE fil LOCfi?pn^^^ 

hulocrteo bv the block 



integer RRRRvs 
PSEUDO-OPERRT I ON. 
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SUtmORV OF ROUTINES 

NOTE. IN THE FOLLOWING^ IR REFERS TO ft MULTIPLE PRECISION 

INTEGER. RND I RND J REFER TO SINGLE-PRECISION INTEGERS. 



R. MPREC 



FORT; CALL HPREC<I> 

SftBR ; CfiLL 1. MPREC 

RRG I 

THIS ROUTINE WILL CHANGE THE SVSTEM TO USE I.— WORD INTEGERS 



B. MCLR 



FORT ; CALL MCLR 

SABR : CALL 0. MCLR 

THIS ROUTINE WILL CLEAR ALL WORD A WORDS OF THE PSEUDO 
ACCUMULATOR. 



C. MADD 



FORT: CALL MADD<IA> 

SABR ; CALL 1. MADD 

RRG I A 

THIS WILL ADD THE MULTIPLE-PRECISION INTEGER AT I A 
TO THE PSEUDO-ACCUMULATOR. 



D. MSUB 

>f:44>f:4< 

FORT; CALL MSUB<IA> 

SABR : CALL 1. MSUB 

ARG I A 

THIS WILL SUBTRACT THE INTEGER AT I A FROM THE PSEUDO 

ACCUMULATOR. 



3 




E. MCOM 



FORT : COLL MCOM 

SRBR : CRLL 0. MCOM 

THIS WILL GIVE THE TWO" S COMPLEMENT OF THE PSEUDO-RCCUMULRTOR. 

F. MRBS 

FORT ; CRLL MRBS 

SRBR : CRLL 0> MRBS 

THIS WILL GIVE THE RBSOLUTE VRLUE OF THE PSEUDO- 
RCCUMULRTOR. 

Q. MSCR 

FORT : CRLL MSCR 

SRBR : CRLL 0. MSCR 

THIS WILL SHIFT THE PSEUDO-RCCUMULRTOR RIGHT 1 BIT. 

FILLING WITH R ZERO. 

H. MSCR 

FORT : CRLL MSCL 

SRBR : CRLL 0. MSCL 

THIS WILL SHIFT THE PSEUDO-RCCUMULRTOR LEFT 1 BIT. 

FILLING WITH R ZERO. 
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I. MSGN 



FORT; I=MSQN<0> 

SftBR: CALL 1. flSGN 

RRG 0 

DCR I 

THIS IS R FUNCTION. ITS ARGUMENT IS IGNORED. IT RETURNS 
ON INTEGER WHOSE VRLUE IS: 

“1 IF THE PSEUDO-flCCUMULRTOR IS NEGRTIVE 

0 IF THE PSEUDO-RCCUMULRTOR IS ZERO 

1 IF THE PSEUDO-RCCUMULRTOR IS POSITIVE 



J. MMPV 



FORT: CRLL MMPV<IR> 

SRBR : CRLL ±, MMPV 

RRG IR 

THIS WILL MULT I PL V THE VALUE IN THE PSEUDO-RCCUMULRTOR 
BV THE INTEGER RT IR. OVERFLOW IS I GNORED. 



K. MDIV 



FORT; CRLL MDIV<IR> 

SRBR: CRLL 1. MDIV 

RRG IR 

THIS WILL DIVIDE THE VRLUE IN THE PSEUDO-RCCUMULRTOR BV 

THE INTEGER RT IR. 



L. MREM 



FORT : CRLL MREM<IR> 

SRBR: CRLL 1. MREM 

RRG IR 



THIS WILL STORE IN THE INTEGER IR THE REMAINDER FROM 

MDIV. THIS MUST BE CALLED IMMEDIRTELV AFTER MDIV 

OR THE RESULTS CANNOT BE GUARANTEED. SINCE OTHER 

ROUTINES MRV DESTROY THIS VRLUE 
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M. MSTO 



FORT: CRLL MSTO<IR> 

SftBR : CRLL 1. MSTO 

RRQ Ifl 

THIS WILL STORE THE PSEUDO-RCCUMULRTOR RT Ifi. 



N. MBRS 



FORT: CRLL MBRS<I> 

SfiBR : CALL 1, MBRS 

RRG I 

THIS WILL CHANGE THE BASE FOR INPUT AND OUTPUT TO I. 

NOTE: I MUST BE BETWEEN 2 AND 47. HOWEVER^ NO CHECK IS MADE 
FOR I OUTSIDE THIS RANGE. THE DIGITS WILL BE ACCORDING TO 
8-BIT ASCII CODE. STARTING RT 0. 

THEREFORE. 10 IS REPRESENTED BV : 

ETC. 



0. MIN 



FORT: CALL MIN<I> 

SABR : CALL 1. MIN 
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fiRG I 



THIS WILL RERD RN INTEGER INTO THE PSEUDO-RCCUMULRTOR IN THE 

CURRENT BASE FROn FORTRRN DEVICE NUMBER I. THE INTEGER 
MUST BE TERMINRTED BV R CRRRIRQE RETURN. IF RN 
ERROR IS MfiDE. TYPE RUBOUT. AND R BRCKSLfiSH AND 
CARRIAGE RETURN AND LINE FEED WILL BE TYPED ON 
DEVICE 1. THEN THE WHOLE INTEGER MUST BE RETYPED. 

NEGATIVE NUMBERS MUST HAVE A SIGN. BLANKS ARE IGNORED. 



P. MOUT 



FORT: CALL MOUT<I.J> 

SABR : CALL Z> MOUT 

ARG I 
ARG J 

THIS WILL OUTPUT THE LOW-ORDER J DIGITS OF THE INTEGER IN THE 
PSEUDO-ACCUMULATOR ON DEVICE I IN THE CURRENT BASE. 

FOR EXAMPLE. IF J=5 . IT WOULD OUTPUT IN AN 15 FORMAT. 

THE NUMBER IS PADDED ON THE LEFT WITH BLANKS. 

THE ACCUMULATOR IS CLEARED AFTER OUTPUT. 
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ERROR MESSRGES 



fl. MDVZ ERROR RT LOG XXXX 

CfiUSE: BH RTTEMPT WRS HRDE TO DIVIDE BV ZERO 

fiCTION TAKEN: THE LARGEST POSITIVE INTEGER IS RETURNED, 

ftND EXECUTION CONTINUES. 



B. MPRC ERROR RT LOG XXXX 

^ PRECISION MRS SPECIFIED WHICH WOULD REQUIRE 

MORE WORDS IN THE PSEUDO-flCCUMULRTOR THRN RLLOCRTED. 

Tn"^TWP TERMINRTES RND CONTROL RETURNS 

TO THE PS/8 MONITOR. 
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INCREftSING THE MRXIHUM PRECISION 

CURRENTLY. THE SYSTEM RLLOWS R MfiXIMUH OF 11 WORDS PER 
INTEGER. THE ROUTINES AND RCCUMULRTOR FIT INTO 
6 PAGES WHEN LORDED. 

TO INCREASE THE NUMBER OF WORDS RLLOCRTED. CHRNGE 
MWORDfi. flCl. flC2. RC2. RND OUTTB IN THE SOURCE. 

AND REASSEMBLE. THE BLOCK XX STATEMENTS MAY 
HAVE TO BE SPLIT UP INTO MORE THAN ONE 

BLOCK PSEUDO-OP TO KEEP SABR FROM WASTING SPACE AT 

THE END OF A PAGE. 



NUMBER OF CORE MAXIMUM NUMBER OF MAI MUM NUMBER OF 

PAGES REQUIRED WORDS/ INTEGER DECIMAL DIGITS PER 

INTEGERS EXCLUDING SIQN> 

6 

7 

8 

9 

10 
30 



NOTE .SINCE THIS IS DONE IN SOFTWARE. THE LARGER THE NUMBER 
SPECIFIED AS AN ARGUMENT TO MPREC. THE LONGER THE 
TIME REQUIRED FOR THE OPERATION. 
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29 


29 


104 


47 


169 


65 


224 


82 


299 


442 


1599 
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EXRHPLE OF CHBNQIMQ 



THE MRXIMUri PRECISION 



THE FOLLOW I NG CHRNQES , WERE MRDE TO THE 
INTEGERS OF 450 WORDS/ INTEGER. 



SOURCE TO RLLOW 



MWORDfl/ -702 /THIS MUST BE -<WORDR> 



base. 12 

/THE FOLLOWING ARE THE PSEUDO-ACCUMULATORS. 

AC1.P BLOCK 120 

BLOCK 200 
BLOCK 200 
BLOCK 162 
ACONli 0 

AC2. BLOCK 15 

BLOCK 200 
BLOCK 200 
BLOCK 200 
BLOCK 65 
PC2> BLOCK 112 

BLOCK 200 
BLOCK 200 
BLOCK 167 
OUTTB. BLOCK 11 

BLOCK 200 
BLOCK 200 
BLOCK 200 
BLOCK 200 
BLOCK 200 
BLOCK 200 
BLOCK 200 
BLOCK 200 
BLOCK 200 
BLOCK 200 
BLOCK 200 
BLOCK 200 
BLOCK 200 
BLOCK 200 
END 
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